gusucode.com > 现代通信系统——使用MATLAB（+全部程序） > 现代通信系统——使用MATLAB（+全部程序）/现代通信系统——使用MATLAB（+全部程序）/Matlab 程序/Chapter6/xrc.m

    function [y] = xrc(f,alpha,T);
% [y]=xrc(f,alpha,T)
% 		Evaluates the expression Xrc(f). The parameters alpha and T
% 		must also be given as inputs to the function.
if (abs(f) > ((1+alpha)/(2*T))),
  y=0;
elseif (abs(f) > ((1-alpha)/(2*T))),
  y=(T/2)*(1+cos((pi*T/alpha)*(abs(f)-(1-alpha)/(2*T))));
else
  y=T;
end;